home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / road.dxr / 00015_VTLtile Parent.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  392 b   |  21 lines
  1. property tileNum, scrambledPos, timeLinePos
  2.  
  3. on birth me, whichTile, randomPos, placedPos
  4.   set tileNum to whichTile
  5.   set scrambledPos to randomPos
  6.   set timeLinePos to placedPos
  7.   return me
  8. end
  9.  
  10. on wrong me
  11.   if (timeLinePos > 0) and (timeLinePos <> tileNum) then
  12.     return 1
  13.   else
  14.     return 0
  15.   end if
  16. end
  17.  
  18. on save me
  19.   return string(scrambledPos) & "," & string(timeLinePos) & ","
  20. end
  21.